home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / a3ddem1a / main.frm < prev    next >
Text File  |  1999-09-23  |  4KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1425
  5.    ClientLeft      =   60
  6.    ClientTop       =   375
  7.    ClientWidth     =   1740
  8.    DrawStyle       =   3  'Dash-Dot
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1425
  11.    ScaleWidth      =   1740
  12.    StartUpPosition =   3  'Windows Default
  13.    Visible         =   0   'False
  14. End
  15. Attribute VB_Name = "MainForm"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. '*********************************
  21. '*                               *
  22. '* OOO    OOO   OOO  OOO    OOO  *
  23. '* O  O  O   O O   O O  O  O   O *
  24. '* OOO   O   O O   O O  O  OOOOO *
  25. '* O  O  O   O O   O O  O  O   O *
  26. '* OOO    OOO   OOO  OOO   O   O *
  27. '*                               *
  28. '*********************************
  29. '
  30. ' 3D Demo
  31. ' September 99
  32. ' Feel free to use this code, just remember to give credit
  33. ' where credit is due.....I would do the same for you.
  34. '
  35. ' Da Booda
  36. ' Any comments or questions...
  37. ' Email boodaone@aol.com
  38. '
  39. ' P.S.  Please forgive the roughness of my code, I
  40. ' don't consider myself a professional...and if any one
  41. ' could better this program, feel free and please EMail me
  42. ' the changes.
  43.  
  44.  
  45. Private Sub Form_Load()
  46. View.Show
  47. Remote.Show
  48. Sa = 1
  49. TransX = 0: TransY = 0: TransZ = 0
  50. RotX = 0: RotY = 0: RotZ = 0
  51. Zm = 0
  52. VerNum = 25
  53. LineNum = 41
  54. ViewDis = 999
  55. XOrigin = 400
  56. YOrigin = 300
  57.  
  58. Rem Vertices
  59. Ver(0, 0) = -10: Ver(0, 1) = -10: Ver(0, 2) = -10
  60. Ver(1, 0) = 10: Ver(1, 1) = -10: Ver(1, 2) = -10
  61. Ver(2, 0) = 10: Ver(2, 1) = 10: Ver(2, 2) = -10
  62. Ver(3, 0) = -10: Ver(3, 1) = 10: Ver(3, 2) = -10
  63.  
  64. Ver(4, 0) = -10: Ver(4, 1) = -10: Ver(4, 2) = 10
  65. Ver(5, 0) = 10: Ver(5, 1) = -10: Ver(5, 2) = 10
  66. Ver(6, 0) = 10: Ver(6, 1) = 10: Ver(6, 2) = 10
  67. Ver(7, 0) = -10: Ver(7, 1) = 10: Ver(7, 2) = 10
  68.  
  69. Ver(8, 0) = -7: Ver(8, 1) = -7: Ver(8, 2) = -7
  70. Ver(9, 0) = 7: Ver(9, 1) = -7: Ver(9, 2) = -7
  71. Ver(10, 0) = 7: Ver(10, 1) = 7: Ver(10, 2) = -7
  72. Ver(11, 0) = -7: Ver(11, 1) = 7: Ver(11, 2) = -7
  73.  
  74. Ver(12, 0) = -7: Ver(12, 1) = -7: Ver(12, 2) = 7
  75. Ver(13, 0) = 7: Ver(13, 1) = -7: Ver(13, 2) = 7
  76. Ver(14, 0) = 7: Ver(14, 1) = 7: Ver(14, 2) = 7
  77. Ver(15, 0) = -7: Ver(15, 1) = 7: Ver(15, 2) = 7
  78.  
  79. Ver(16, 0) = 0: Ver(16, 1) = -10: Ver(16, 2) = 0
  80. Ver(17, 0) = -10: Ver(17, 1) = 0: Ver(17, 2) = 0
  81. Ver(18, 0) = 0: Ver(18, 1) = 0: Ver(18, 2) = -10
  82. Ver(19, 0) = 10: Ver(19, 1) = 0: Ver(19, 2) = 0
  83. Ver(20, 0) = 0: Ver(20, 1) = 0: Ver(20, 2) = 10
  84. Ver(21, 0) = 0: Ver(21, 1) = 10: Ver(21, 2) = 0
  85.  
  86. Ver(22, 0) = -7: Ver(22, 1) = -7: Ver(22, 2) = 10
  87. Ver(23, 0) = 7: Ver(23, 1) = -7: Ver(23, 2) = 10
  88. Ver(24, 0) = 7: Ver(24, 1) = 7: Ver(24, 2) = 10
  89. Ver(25, 0) = -7: Ver(25, 1) = 7: Ver(25, 2) = 10
  90.  
  91. Rem Lines
  92. Lin(0, 0) = 0: Lin(0, 1) = 1
  93. Lin(1, 0) = 1: Lin(1, 1) = 2
  94. Lin(2, 0) = 2: Lin(2, 1) = 3
  95. Lin(3, 0) = 3: Lin(3, 1) = 0
  96. Lin(4, 0) = 4: Lin(4, 1) = 5
  97. Lin(5, 0) = 5: Lin(5, 1) = 6
  98. Lin(6, 0) = 6: Lin(6, 1) = 7
  99. Lin(7, 0) = 7: Lin(7, 1) = 4
  100. Lin(8, 0) = 0: Lin(8, 1) = 4
  101. Lin(9, 0) = 1: Lin(9, 1) = 5
  102. Lin(10, 0) = 2: Lin(10, 1) = 6
  103. Lin(11, 0) = 3: Lin(11, 1) = 7
  104.  
  105. Lin(12, 0) = 8: Lin(12, 1) = 9
  106. Lin(13, 0) = 9: Lin(13, 1) = 10
  107. Lin(14, 0) = 10: Lin(14, 1) = 11
  108. Lin(15, 0) = 11: Lin(15, 1) = 8
  109. Lin(16, 0) = 12: Lin(16, 1) = 13
  110. Lin(17, 0) = 13: Lin(17, 1) = 14
  111. Lin(18, 0) = 14: Lin(18, 1) = 15
  112. Lin(19, 0) = 15: Lin(19, 1) = 12
  113. Lin(20, 0) = 8: Lin(20, 1) = 12
  114. Lin(21, 0) = 9: Lin(21, 1) = 13
  115. Lin(22, 0) = 10: Lin(22, 1) = 14
  116. Lin(23, 0) = 11: Lin(23, 1) = 15
  117.  
  118. Lin(24, 0) = 16: Lin(24, 1) = 17
  119. Lin(25, 0) = 16: Lin(25, 1) = 18
  120. Lin(26, 0) = 16: Lin(26, 1) = 19
  121. Lin(27, 0) = 16: Lin(27, 1) = 20
  122. Lin(28, 0) = 17: Lin(28, 1) = 18
  123. Lin(29, 0) = 18: Lin(29, 1) = 19
  124. Lin(30, 0) = 19: Lin(30, 1) = 20
  125. Lin(31, 0) = 20: Lin(31, 1) = 17
  126. Lin(32, 0) = 21: Lin(32, 1) = 17
  127. Lin(33, 0) = 21: Lin(33, 1) = 18
  128. Lin(34, 0) = 21: Lin(34, 1) = 19
  129. Lin(35, 0) = 21: Lin(35, 1) = 20
  130.  
  131. Lin(36, 0) = 22: Lin(36, 1) = 23
  132. Lin(37, 0) = 23: Lin(37, 1) = 24
  133. Lin(38, 0) = 24: Lin(38, 1) = 25
  134. Lin(39, 0) = 25: Lin(39, 1) = 22
  135. Lin(40, 0) = 22: Lin(40, 1) = 24
  136. Lin(41, 0) = 23: Lin(41, 1) = 25
  137.  
  138. Rem colors
  139. For a = 0 To 11
  140. Lin(a, 2) = 255
  141. Next a
  142. For a = 12 To 23
  143. Lin(a, 3) = 255
  144. Next a
  145. For a = 24 To 35
  146. Lin(a, 4) = 255
  147. Next a
  148. For a = 36 To 41
  149. For b = 2 To 4
  150. Lin(a, b) = 255
  151. Next b, a
  152.  
  153. Change
  154. Change
  155. End Sub
  156.